home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / requester_test.e < prev    next >
Encoding:
Text File  |  1996-06-15  |  1.5 KB  |  35 lines
  1. /*
  2.  *  Testing the Requester-Module
  3.  * -============================-
  4.  * 
  5.  */
  6.  
  7. MODULE  'req/reqtypes'          -> For the Types ASL and RT
  8. MODULE  'req/requester'         -> The Requester-Module
  9.  
  10. PROC main()
  11.  DEF    passwort[120]:STRING,   -> String for the first password
  12.         oldpw[120]:STRING,      -> And one for the second password
  13.         file,drawer            
  14.  
  15.   StrCopy(oldpw,passwortrequest('SECURITY','Bitte das Passwort eingeben:'),120)
  16.                                 -> Get the first Password...
  17.    StrCopy(passwort,passwortrequest('SECURITY','Bitte eingabe wiederholen:'),120)
  18.                                 -> And the Second...
  19.     IF StrCmp(oldpw,passwort,StrLen(oldpw))=FALSE
  20.                                 -> Compare both together...
  21.      inforequest('WARNUNG!','Die Passwörter stimmen nicht überein!','Beenden!')
  22.                                 -> No, they are diffrent...
  23.     ELSE                        -> But if they are absolutly the same (not case sensitive!)
  24.      inforequest('Information','Die Passwörter stimmen überein!','OK!')
  25.                                 -> Message to the User...
  26.     ENDIF
  27.      drawer,file:=filerequest('Filerequester-Test (ASL)',TYPE_ASL,'ram:','~(#?.info)','OK','Ende')
  28.       WriteF(' Dir : \s\n',drawer)
  29.        WriteF(' File: \s\n',file)
  30.         drawer,file:=filerequest('Filerequester-Test (RT)',TYPE_REQTOOLS,'ram:','~(#?.info)','OK','Ende')
  31.          WriteF(' Dir : \s\n',drawer)
  32.           WriteF(' File: \s\n',file)
  33. ENDPROC                         -> Programm-End
  34.  
  35.